home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / modprolg / mod-prol.lha / Prolog / Examples / slide5.mod < prev    next >
Text File  |  1992-06-09  |  296b  |  12 lines
  1.     structure test =
  2.         struct
  3.             fun node/3.
  4.             fun branch = node.
  5.             fun tree = branch.
  6.             test1 :-
  7.                 write(branch(1,2,3)), nl.
  8.             test2 :-
  9.                 branch(1,2,3) =.. [Name|_],
  10.                 write(Name), nl.
  11.         end.
  12.